/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / Frontier / Backupfolder.sit / backupfolder.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 62 00 02 00 00 | 00 c6 00 00 04 16 00 07 |...b....|........|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 08 00 00 |........|........|
|00000040| 00 00 07 80 00 00 a4 bb | 0a 01 a4 bd 7a ad 00 00 |........|....z...|
|00000050| 00 0f 00 00 00 8c 00 7f | 01 d6 02 3e 00 00 00 00 |........|...>....|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6f 6e 20 62 |........|....on b|
|00000080| 61 63 6b 75 70 66 6f 6c | 64 65 72 20 28 70 61 74 |ackupfol|der (pat|
|00000090| 68 29 0d 09 6c 6f 63 61 | 6c 20 28 66 6f 6c 64 65 |h)..loca|l (folde|
|000000a0| 72 20 3d 20 66 69 6c 65 | 2e 66 6f 6c 64 65 72 66 |r = file|.folderf|
|000000b0| 72 6f 6d 70 61 74 68 20 | 28 70 61 74 68 29 29 0d |rompath |(path)).|
|000000c0| 09 6c 6f 63 61 6c 20 28 | 6c 61 73 74 62 61 63 6b |.local (|lastback|
|000000d0| 75 70 20 3d 20 30 29 0d | 09 0d 09 6f 6e 20 67 65 |up = 0).|...on ge|
|000000e0| 74 62 61 63 6b 75 70 6e | 75 6d 62 65 72 20 28 66 |tbackupn|umber (f|
|000000f0| 29 20 c7 72 65 74 75 72 | 6e 20 30 20 69 66 20 69 |) .retur|n 0 if i|
|00000100| 74 73 20 6e 6f 74 20 6f | 6e 65 20 6f 66 20 74 68 |ts not o|ne of th|
|00000110| 65 20 62 61 63 6b 75 70 | 20 66 6f 6c 64 65 72 73 |e backup| folders|
|00000120| 0d 09 09 69 66 20 69 74 | 20 69 73 20 61 20 62 61 |...if it| is a ba|
|00000130| 63 6b 75 70 20 66 6f 6c | 64 65 72 2c 20 72 65 74 |ckup fol|der, ret|
|00000140| 75 72 6e 20 74 68 65 20 | 62 61 63 6b 75 70 20 6e |urn the |backup n|
|00000150| 75 6d 62 65 72 0d 09 09 | 0d 09 09 69 66 20 21 66 |umber...|...if !f|
|00000160| 69 6c 65 2e 69 73 66 6f | 6c 64 65 72 20 28 66 29 |ile.isfo|lder (f)|
|00000170| 20 c7 6e 6f 74 20 61 20 | 66 6f 6c 64 65 72 2c 20 | .not a |folder, |
|00000180| 63 61 6e 27 74 20 62 65 | 20 61 20 62 61 63 6b 75 |can't be| a backu|
|00000190| 70 20 66 6f 6c 64 65 72 | 0d 09 09 09 72 65 74 75 |p folder|....retu|
|000001a0| 72 6e 20 28 30 29 0d 09 | 09 0d 09 09 6c 6f 63 61 |rn (0)..|....loca|
|000001b0| 6c 20 28 78 29 0d 09 09 | 78 20 3d 20 66 69 6c 65 |l (x)...|x = file|
|000001c0| 2e 66 69 6c 65 66 72 6f | 6d 70 61 74 68 20 28 66 |.filefro|mpath (f|
|000001d0| 29 20 c7 67 65 74 20 74 | 68 65 20 66 69 6c 65 20 |) .get t|he file |
|000001e0| 6e 61 6d 65 2c 20 70 6f | 70 20 6f 66 66 20 74 68 |name, po|p off th|
|000001f0| 65 20 70 61 74 68 0d 09 | 09 69 66 20 73 74 72 69 |e path..|.if stri|
|00000200| 6e 67 2e 70 61 74 74 65 | 72 6e 6d 61 74 63 68 20 |ng.patte|rnmatch |
|00000210| 28 22 62 61 63 6b 75 70 | 20 23 22 2c 20 78 29 20 |("backup| #", x) |
|00000220| 3d 3d 20 30 20 c7 69 74 | 27 73 20 6e 6f 74 20 6f |== 0 .it|'s not o|
|00000230| 6e 65 20 6f 66 20 6f 75 | 72 20 62 61 63 6b 75 70 |ne of ou|r backup|
|00000240| 20 66 6f 6c 64 65 72 73 | 0d 09 09 09 72 65 74 75 | folders|....retu|
|00000250| 72 6e 20 28 30 29 0d 09 | 09 65 6c 73 65 0d 09 09 |rn (0)..|.else...|
|00000260| 09 72 65 74 75 72 6e 20 | 28 6e 75 6d 62 65 72 20 |.return |(number |
|00000270| 28 78 20 2d 20 22 62 61 | 63 6b 75 70 20 23 22 29 |(x - "ba|ckup #")|
|00000280| 29 0d 09 0d 09 66 69 6c | 65 6c 6f 6f 70 20 28 66 |)....fil|eloop (f|
|00000290| 20 69 6e 20 66 6f 6c 64 | 65 72 29 20 c7 66 69 6e | in fold|er) .fin|
|000002a0| 64 20 74 68 65 20 6d 6f | 73 74 20 72 65 63 65 6e |d the mo|st recen|
|000002b0| 74 20 62 61 63 6b 75 70 | 0d 09 09 69 66 20 66 69 |t backup|...if fi|
|000002c0| 6c 65 2e 69 73 66 6f 6c | 64 65 72 20 28 66 29 0d |le.isfol|der (f).|
|000002d0| 09 09 09 6c 6f 63 61 6c | 20 28 78 20 3d 20 67 65 |...local| (x = ge|
|000002e0| 74 62 61 63 6b 75 70 6e | 75 6d 62 65 72 20 28 66 |tbackupn|umber (f|
|000002f0| 29 29 0d 09 09 09 69 66 | 20 78 20 3e 20 30 20 c7 |))....if| x > 0 .|
|00000300| 69 74 27 73 20 6f 6e 65 | 20 6f 66 20 6f 75 72 20 |it's one| of our |
|00000310| 62 61 63 6b 75 70 20 66 | 6f 6c 64 65 72 73 0d 09 |backup f|olders..|
|00000320| 09 09 09 69 66 20 78 20 | 3e 20 6c 61 73 74 62 61 |...if x |> lastba|
|00000330| 63 6b 75 70 0d 09 09 09 | 09 09 6c 61 73 74 62 61 |ckup....|..lastba|
|00000340| 63 6b 75 70 20 3d 20 78 | 0d 09 0d 09 6e 65 77 66 |ckup = x|....newf|
|00000350| 6f 6c 64 65 72 20 3d 20 | 66 6f 6c 64 65 72 20 2b |older = |folder +|
|00000360| 20 22 62 61 63 6b 75 70 | 20 23 22 20 2b 20 28 6c | "backup| #" + (l|
|00000370| 61 73 74 62 61 63 6b 75 | 70 20 2b 20 31 29 20 2b |astbacku|p + 1) +|
|00000380| 20 22 3a 22 0d 09 66 69 | 6c 65 2e 6e 65 77 66 6f | ":"..fi|le.newfo|
|00000390| 6c 64 65 72 20 28 6e 65 | 77 66 6f 6c 64 65 72 29 |lder (ne|wfolder)|
|000003a0| 0d 09 0d 09 63 6f 75 6e | 74 20 3d 20 30 0d 09 66 |....coun|t = 0..f|
|000003b0| 69 6c 65 6c 6f 6f 70 20 | 28 66 20 69 6e 20 66 6f |ileloop |(f in fo|
|000003c0| 6c 64 65 72 29 20 c7 63 | 6f 70 79 20 74 68 65 20 |lder) .c|opy the |
|000003d0| 66 69 6c 65 73 20 69 6e | 74 6f 20 74 68 65 20 62 |files in|to the b|
|000003e0| 61 63 6b 75 70 20 66 6f | 6c 64 65 72 0d 09 09 69 |ackup fo|lder...i|
|000003f0| 66 20 67 65 74 62 61 63 | 6b 75 70 6e 75 6d 62 65 |f getbac|kupnumbe|
|00000400| 72 20 28 66 29 20 3d 3d | 20 30 20 c7 64 6f 6e 27 |r (f) ==| 0 .don'|
|00000410| 74 20 63 6f 70 79 20 61 | 20 62 61 63 6b 75 70 20 |t copy a| backup |
|00000420| 66 6f 6c 64 65 72 0d 09 | 09 09 66 69 6c 65 2e 63 |folder..|..file.c|
|00000430| 6f 70 79 20 28 66 2c 20 | 6e 65 77 66 6f 6c 64 65 |opy (f, |newfolde|
|00000440| 72 20 2b 20 66 69 6c 65 | 2e 66 69 6c 65 66 72 6f |r + file|.filefro|
|00000450| 6d 70 61 74 68 20 28 66 | 29 29 0d 09 09 09 63 6f |mpath (f|))....co|
|00000460| 75 6e 74 20 3d 20 63 6f | 75 6e 74 20 2b 20 31 0d |unt = co|unt + 1.|
|00000470| 09 09 09 6d 73 67 20 28 | 63 6f 75 6e 74 20 2b 20 |...msg (|count + |
|00000480| 22 20 66 69 6c 65 73 20 | 63 6f 70 69 65 64 2e 22 |" files |copied."|
|00000490| 29 0d 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |).......|........|
|000004a0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000004b0| 84 00 00 00 00 00 80 00 | 00 00 00 00 80 00 00 00 |........|........|
|000004c0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|000004d0| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 80 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000500| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 80 00 00 00 |........|........|
|00000520| 00 00 80 00 00 00 00 00 | 80 00 00 00 00 00 80 00 |........|........|
|00000530| 00 00 00 00 80 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000540| 80 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+